﻿Imports System.Windows.Forms

Public Class Dialog1

    Public Sub setprogressmax(ByVal maxdecimal As Decimal)
        ProgressBar1.Maximum = maxdecimal

    End Sub

    Public Sub setprogressmin(ByVal mindecimal As Decimal)
        ProgressBar1.Minimum = mindecimal

    End Sub

    Public Sub setprogressvalue(ByVal valdecimal As Decimal)
        ProgressBar1.Value = valdecimal

    End Sub

    Public Sub setlabeltext(ByVal text As String)
        Label1.Text = text

    End Sub

End Class
